home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 13 / Developer Source Volume 13 (I-MODE Publications, Inc.)(1999).iso / ORINF / APR96 / HOSKF113.GIF

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  10KB  |  491x427  |  4-bit (12 colors)

Labels: text | electronics | screenshot | display | software | computer icon | web page | number | website | operating system
OCR: popTRANSTYPE Properties D ... + PostChange Sub PostChanged On change of transaction type, ensure proper amount sign which is done in fldAMOUNT2. PostChange IF NOT ISNULL ( Value ) THEN SELECT CASE Value CASE "Check": IF repRegister. GetRecordset ( ) . GetColVal ( "AMOUNT" ) > 0 THEN embCheck. Colorfill = 15 txtSignature. Label = "Sample User" CASE 'Deposit": IF repRegister. GetRecordset () . GetColVal ( "AMOUNT" ) < 0 THEN embCheck. Colorfill = 9 txtSignature. Label = "- For DEPOSIT Only -" CASE "Withdraw": IF repRegister. GetRecordset ( ) . GetColVal ( "AMOUNT" ) > 0 THEN embCheck. Colorfill = 11 txtSignature. Label = "- For WITHDRAWAL Only -" END SELECT END IF

---